* etags.el (find-tag-other-window): If another window is already

	displaying the tag's buffer, explicitly set that window's point to
	the tag's position.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 1f97188c6d5b4c438d616c2da02bea8542eb42f2..1cf1e810541d125405bff2be2fbf297369b3ad52 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -658,10 +658,17 @@ See documentation of variable `tags-file-name'."
   ;; windows.  To prevent this, we save the selected window's point before
   ;; doing find-tag-noselect, and restore it after.
   (let* ((window-point (window-point (selected-window)))
-        (tagbuf (find-tag-noselect tagname next-p)))
+        (tagbuf (find-tag-noselect tagname next-p))
+        (tagpoint (progn (set-buffer tagbuf) (point))))
     (set-window-point (prog1
                          (selected-window)
-                       (switch-to-buffer-other-window tagbuf))
+                       (switch-to-buffer-other-window tagbuf)
+                       ;; We have to set this new window's point; it
+                       ;; might already have been displaying a
+                       ;; different portion of tagbuf, in which case
+                       ;; switch-to-buffer-other-window doesn't set
+                       ;; the window's point from the buffer.
+                       (set-window-point (selected-window) tagpoint))
                      window-point)))
 ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)